Quick PC 61/Quick PC 61.iso/I386/SASETUP.MSI/F77718_Ftp_LogSettings.asp

Text File | 2003-02-21 | 44.0 KB | 1,359 lines

<%@ Language=VBScript     %>

<%    Option Explicit       %>

<%
    '-------------------------------------------------------------------------
    ' Ftp_LogSettings.asp: set the logs for FTP sites
    '
    ' Copyright (c) Microsoft Corporation.  All rights reserved.
    '
    ' Date                Description
    ' 06-11-2000        Created date
    '-------------------------------------------------------------------------
%>

<!-- #include virtual="/admin/inc_framework.asp" -->
<!-- #include virtual="/admin/wsa/inc_wsa.asp" -->
<!-- #include virtual="/admin/wsa/inc_wsa.js" -->
<!-- #include file="inc_MasterWeb.js" -->

<%
    '-------------------------------------------------------------------------
    ' Form Variables
    '-------------------------------------------------------------------------
    Dim F_strWebRoorDir                         'Root Dir for the form
    Dim F_chkEnableLogging
    Dim F_selectActiveFormat
    Dim F_optLogPeriod
    Dim F_FileSize
    Dim F_LocalTime
    Dim F_LogFileDir
    Dim F_IISSites
    Dim F_selectTasks
    Dim L_FILE
    'Dim F_SiteCriteria
    Dim G_objSites
    Dim FTPInstalled

    '-------------------------------------------------------------------------
    ' Global Variables
    '-------------------------------------------------------------------------
    Dim G_objService

    '-------------------------------------------------------------------------
    ' Start of localization content
    '-------------------------------------------------------------------------
    Dim L_INVALID_DIR_FORMAT_ERRORMESSAGE
    Dim L_INVALID_DIR_ERRORMESSAGE
    Dim L_DIRPATHEMPTY_ERRORMESSAGE
    Dim L_INFORMATION_ERRORMESSAGE
    Dim L_FILEINFORMATION_ERRORMESSAGE
    Dim L_FAILED_CREATE_DIR_ERRORMESSAGE
    Dim L_NOT_NTFS_DRIVE_ERRORMESSAGE
    Dim L_INVALID_DRIVE_ERRORMESSAGE
    Dim L_DIRQUOTAERRORMESSAGE
    Dim L_FAIL_TO_SET_LOGS
    Dim L_APPLYTOALLFTPTEXT
    Dim L_APPLYTOINHERITEDFTPTEXT
    Dim L_LOGFILEDIR
    Dim L_LOCALTIME
    Dim L_ENABLELOGGING
    Dim L_ACTIVELOGFORMAT
    Dim L_IISLOGFORMAT
    Dim L_COMMONLOGFORMAT
    Dim L_ODBCLOG
    Dim L_EXTENDEDLOGFILE
    Dim L_NEWLOGTIME
    Dim L_HOURLY
    Dim L_MONTHLY
    Dim L_DAILY
    Dim L_UNLIMITEDFILESIZE
    Dim L_WEEKLY
    Dim L_WHENFILESIZE
    Dim L_MB
    Dim L_FTPLOG_TEXT
    'Dim L_FTPLOGSDIRHELP
    Dim L_FTPNOTINSTALLED_ERRORMESSAGE

    Dim L_ID_NOTEMPTY_ERROR_MESSAGE
    Dim L_SITE_IDENTIFIER_EMPTY_TEXT


    L_FTPLOG_TEXT                        =    GetLocString("GeneralSettings.dll", "4042004E", "")
    'L_FTPLOGSDIRHELP                    =    GetLocString("GeneralSettings.dll", "40420050", "")
    L_ENABLELOGGING                        =    GetLocString("GeneralSettings.dll", "40420039", "")
    L_ACTIVELOGFORMAT                    =    GetLocString("GeneralSettings.dll", "4042003A", "")
    L_IISLOGFORMAT                        =    GetLocString("GeneralSettings.dll", "4042003B", "")
    L_COMMONLOGFORMAT                    =    GetLocString("GeneralSettings.dll", "4042003C", "")
    L_ODBCLOG                            =    GetLocString("GeneralSettings.dll", "4042003D", "")
    L_EXTENDEDLOGFILE                    =    GetLocString("GeneralSettings.dll", "4042003E", "")
    L_NEWLOGTIME                        =    GetLocString("GeneralSettings.dll", "4042003F", "")
    L_HOURLY                            =    GetLocString("GeneralSettings.dll", "40420040", "")
    L_MONTHLY                            =    GetLocString("GeneralSettings.dll", "40420041", "")
    L_DAILY                                =    GetLocString("GeneralSettings.dll", "40420042", "")
    L_UNLIMITEDFILESIZE                    =    GetLocString("GeneralSettings.dll", "40420043", "")
    L_WEEKLY                            =    GetLocString("GeneralSettings.dll", "40420044", "")
    L_WHENFILESIZE                        =    GetLocString("GeneralSettings.dll", "40420045", "")
    L_MB                                =    GetLocString("GeneralSettings.dll", "40420046", "")
    L_LOCALTIME                            =    GetLocString("GeneralSettings.dll", "40420047", "")
    L_LOGFILEDIR                        =    GetLocString("GeneralSettings.dll", "40420048", "")
    L_APPLYTOALLFTPTEXT                    =    GetLocString("GeneralSettings.dll", "4042002B", "")
    L_APPLYTOINHERITEDFTPTEXT            =    GetLocString("GeneralSettings.dll", "4042002C", "")
    L_FAIL_TO_SET_LOGS                    =    GetLocString("GeneralSettings.dll", "C0420049", "")
    L_INVALID_DRIVE_ERRORMESSAGE        =    GetLocString("GeneralSettings.dll", "C0420022", "")
    L_NOT_NTFS_DRIVE_ERRORMESSAGE        =    GetLocString("GeneralSettings.dll", "C042000D", "")
    L_FAILED_CREATE_DIR_ERRORMESSAGE    =    GetLocString("GeneralSettings.dll", "C042000E", "")
    L_FILEINFORMATION_ERRORMESSAGE        =   GetLocString("GeneralSettings.dll", "C042000C", "")
    L_INFORMATION_ERRORMESSAGE            =    GetLocString("GeneralSettings.dll", "C042000F", "")
    L_INVALID_DIR_FORMAT_ERRORMESSAGE    =    GetLocString("GeneralSettings.dll", "40420004", "")
    L_INVALID_DIR_ERRORMESSAGE            =    GetLocString("GeneralSettings.dll", "C042004B", "")
    L_DIRPATHEMPTY_ERRORMESSAGE            =    GetLocString("GeneralSettings.dll", "C042004C", "")
    L_FILE                                =    GetLocString("GeneralSettings.dll", "4042004A", "")
    L_FTPNOTINSTALLED_ERRORMESSAGE        =    GetLocString("GeneralSettings.dll", "C0420058", "")
    '-------------------------------------------------------------------------
    'END of localization content
    '-------------------------------------------------------------------------

    'Create property page
    Dim rc
    Dim page

    rc=SA_CreatePage(L_FTPLOG_TEXT,"",PT_PROPERTY,page)

    'Serve the page
    If(rc=0) then
        SA_ShowPage(Page)
    End if

    '-------------------------------------------------------------------------
    'Function:                OnInitPage()
    'Description:            Called to signal first time processing for this page.
    '                        Use this method to do first time initialization tasks
    'Input Variables:        PageIn,EventArg
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Public Function OnInitPage(ByRef PageIn,ByRef EventArg)
        InitObjects()

        if FTPInstalled = false then
            ServeFailurePage L_FTPNOTINSTALLED_ERRORMESSAGE ,sReturnURL
        end if

        SetVariablesFromSystem()
        OnInitPage = True
    End Function

    '-------------------------------------------------------------------------
    'Function:                OnServePropertyPage()
    'Description:            Called when the page needs to be served.Use this
    '                        method to serve content
    'Input Variables:        PageIn,EventArg
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Public Function OnServePropertyPage(ByRef PageIn,Byref EventArg)
        Call ServeCommonJavaScript()
        Call ServePage()
        OnServePropertyPage = True
    End Function

    '-------------------------------------------------------------------------
    'Function:                OnPostBackPage()
    'Description:            Called to signal that the page has been posted-back.
    'Input Variables:        PageIn,EventArg
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Public Function OnPostBackPage(ByRef PageIn ,ByRef EventArg)
        OnPostBackPage = True
    End Function

    '-------------------------------------------------------------------------
    'Function:                OnSubmitPage()
    'Description:            Called when the page has been submitted for processing.
    '                        Use this method to process the submit request.
    'Input Variables:        PageIn,EventArg
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Public Function OnSubmitPage(ByRef PageIn ,ByRef EventArg)
        OnSubmitPage = ServeVariablesFromForm()
    End Function

    '-------------------------------------------------------------------------
    'Function:                OnClosePage()
    'Description:            Called when the page is about closed.Use this method
    '                        to perform clean-up processing
    'Input Variables:        PageIn,EventArg
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Public Function OnClosePage(ByRef PageIn ,ByRef EventArg)
        OnClosePage = TRUE
    End Function

    '-------------------------------------------------------------------------
    'Function:                ServeCommonJavaScript
    'Description:            Serves in initialiging the values,setting the form
    '                        data and validating the form values
    'Input Variables:        None
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Function ServeCommonJavaScript()
%>
        <!-- #include file="inc_MasterWeb.js" -->

        <script language="JavaScript">
         function ValidatePage()
            {
                 // validate directory

                 var FTPinst = "<%=FTPInstalled%>";
                if (FTPinst == "True")
                {
                    var strID = "";
                    strID = document.frmTask.txtLogFileDir.value;

                    var strIndex = strID.indexOf("\\\\");
                    var index = strID.indexOf(":\\",4);
                    var indexColon = strID.indexOf(":",3);
                    if (strIndex > 0 || index  > 0 || indexColon > 0 )
                    {
                        SA_DisplayErr("<%=Server.HTMLEncode(SA_EscapeQuotes(L_INVALID_DIR_FORMAT_ERRORMESSAGE))%>");
                        document.frmTask.txtLogFileDir.focus();
                        return false;
                    }

                    if (document.frmTask.txtFileSize.disabled==false)
                    {
                        var strFileSize = document.frmTask.txtFileSize.value;
                        if (strFileSize == "" || strFileSize == 0)
                        {
                            document.frmTask.txtFileSize.value = 1;
                            return true;
                        }
                    }
                    // validate site directory
                    if (!(checkKeyforValidCharacters(strID)))
                            return false;

                    UpdateHiddenVariables();
                    return true;
                }
            }

            function checkKeyforValidCharacters(strID)
            {

                var len = strID.length;
                var charAtPos;
                if(len > 0)
                {
                    for(var i=0; i<len;i++)
                    {
                      charAtPos = strID.charCodeAt(i);
                        if(charAtPos ==47 || charAtPos == 42 || charAtPos == 63 || charAtPos == 34 || charAtPos == 60 || charAtPos == 62 || charAtPos == 124 || charAtPos == 91 || charAtPos == 93 || charAtPos == 59 || charAtPos == 43 || charAtPos == 61 || charAtPos == 44)
                        {
                            SA_DisplayErr("<%=Server.HTMLEncode(SA_EscapeQuotes(L_INVALID_DIR_ERRORMESSAGE))%>");
                            document.frmTask.txtLogFileDir.value = strID;
                            document.frmTask.txtLogFileDir.focus();
                            return false;

                        }
                    }
                    return true;
                }
                else
                {
                    var enableLogging = document.frmTask.chkEnableLogging.checked;
                    if (enableLogging == true)
                    {
                        SA_DisplayErr("<%=Server.HTMLEncode(SA_EscapeQuotes(L_DIRPATHEMPTY_ERRORMESSAGE))%>");
                        document.frmTask.txtLogFileDir.focus();
                        return false;
                    }
                    else
                        return true;
                }
            }


            //init function
            function Init()
            {

                var FTPinst = "<%=Server.HTMLEncode(FTPInstalled)%>";
                if (FTPinst == "True")
                {

                    var ActiveFormat = "<%= Server.HTMLEncode(F_selectActiveFormat) %>";

                    if (ActiveFormat == "<%= Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT) %>")
                    {
                        document.frmTask.selectActiveFormat.selectedIndex = 0;
                    }
                    else if (ActiveFormat == "<%= Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT) %>")
                    {
                        document.frmTask.selectActiveFormat.selectedIndex = 1;
                    }
                    else if (ActiveFormat == "<%= Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT) %>")
                    {
                        document.frmTask.selectActiveFormat.selectedIndex = 2;
                    }

                    var myValue,i;
                    myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;

                    if(myValue == "<%= Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT) %>")
                    {

                        var len = document.frmTask.optLogPeriod.length;
                        for(i=0;i<len;i++)
                        {
                            document.frmTask.optLogPeriod[i].disabled=true;
                            document.frmTask.optLogPeriod[i].checked = false;
                        }

                        document.frmTask.txtLogFileDir.disabled = true;
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = true;
                        document.frmTask.txtFileSize.value = "";
                    }


                    if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>" ||
                       myValue == "<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT)%>")
                    {

                        var len = document.frmTask.optLogPeriod.length;
                        tempVal1 = document.frmTask.optLogPeriod[3].checked;
                        tempVal2 = document.frmTask.optLogPeriod[5].checked;
                        if(tempVal1 == true){
                            document.frmTask.chkLocalTime.disabled = true;
                            document.frmTask.txtFileSize.disabled = true;
                            }

                        if(tempVal2 == true){
                            document.frmTask.chkLocalTime.disabled = true;
                            document.frmTask.txtFileSize.disabled = false;
                            }
                        else
                        {
                             if(!(myValue == "<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT)%>"))
                             {
                                 if(document.frmTask.chkLocalTime.checked == true)
                                {
                                    document.frmTask.chkLocalTime.disabled = false;
                                    document.frmTask.chkLocalTime.checked = true;
                                }
                                else
                                {

                                    if(tempVal1 == true || tempVal2 == true)
                                    {
                                        document.frmTask.chkLocalTime.disabled = true;
                                        document.frmTask.chkLocalTime.checked = false;
                                    }
                                    else
                                    {
                                        document.frmTask.chkLocalTime.disabled = false;
                                        document.frmTask.chkLocalTime.checked = false;
                                    }
                                }
                            }
                        }

                        document.frmTask.txtLogFileDir.disabled = false;
                        var len = document.frmTask.optLogPeriod.length;
                        for(i=0;i<len;i++)
                            document.frmTask.optLogPeriod[i].disabled=false;
                    }

                    var enableLogging = "<%= F_chkEnableLogging %>";
                    if (enableLogging == "false")
                    {
                            document.frmTask.txtLogFileDir.disabled = true;
                            document.frmTask.chkLocalTime.disabled = true;
                            document.frmTask.selectActiveFormat.disabled = true;

                            var len = document.frmTask.optLogPeriod.length;
                            for(i=0;i<len;i++)
                                document.frmTask.optLogPeriod[i].disabled=true;

                            document.frmTask.txtFileSize.disabled = true;
                    }

                }
                else
                {

                    document.frmTask.chkEnableLogging.disabled = true;
                    document.frmTask.selectActiveFormat.disabled = true;
                    var len = document.frmTask.optLogPeriod.length;
                    for(i=0;i<len;i++)
                    {
                        document.frmTask.optLogPeriod[i].disabled=true;
                    }
                    document.frmTask.txtLogFileDir.disabled = true;
                    document.frmTask.chkLocalTime.disabled = true;
                    document.frmTask.chkLocalTime.checked = false
                    document.frmTask.txtFileSize.disabled = true;
                    document.frmTask.txtFileSize.value = "";
                    //document.frmTask.optAllSites[0].disabled = true;
                    //document.frmTask.optAllSites[1].disabled = true;

                    return true;
                }

            }

            function enableFileTextBox()
            {
                ClearErr();

                document.frmTask.txtFileSize.disabled = false;
                document.frmTask.txtFileSize.focus();
                var myValue,i;
                myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;


                if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>")
                {
                    var len = document.frmTask.optLogPeriod.length;
                    tempVal1 = document.frmTask.optLogPeriod[3].checked;
                    tempVal2 = document.frmTask.optLogPeriod[5].checked;
                    if(tempVal1 == true){
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = true;
                        return true;}

                    if(tempVal2 == true){
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = false;
                        return true;}
                    else{
                         document.frmTask.chkLocalTime.disabled = false;
                         return true;}
                }
                else{
                    tempVal1 = document.frmTask.optLogPeriod[3].checked;
                    if(tempVal1 == true){
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = true;
                        return true;}
                    }
            }

            function DisableFileTextBox()
            {
                ClearErr();
                var myValue,i;
                myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;

                if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>")
                {
                    tempVal1 = document.frmTask.optLogPeriod[3].checked;
                    tempVal2 = document.frmTask.optLogPeriod[5].checked;
                    if(tempVal1 == true)
                    {
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = true;
                        return true;
                    }
                    else if(tempVal2 == true)
                    {
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = false;
                        return true;
                    }
                    else
                    {
                        document.frmTask.chkLocalTime.disabled = false;
                        document.frmTask.txtFileSize.disabled = true;
                        return true;
                    }

                }
                else
                {
                    document.frmTask.chkLocalTime.disabled = true;
                    document.frmTask.txtFileSize.disabled = true;
                }
            }

            function EnableLogFile()
            {
                ClearErr();
                var myValue,i;
                myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;


                if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>")
                {
                    document.frmTask.chkLocalTime.disabled = false;
                    document.frmTask.txtLogFileDir.disabled = false;

                    var len = document.frmTask.optLogPeriod.length;
                    for(i=0;i<len;i++)
                    {
                        document.frmTask.optLogPeriod[i].disabled=false;
                    }

                    var temp = document.frmTask.optLogPeriod[5].checked;
                    if (temp==true){
                        enableFileTextBox();
                        document.frmTask.chkLocalTime.checked = false;
                        document.frmTask.chkLocalTime.disabled = true;}

                    var temp = document.frmTask.optLogPeriod[3].checked;
                    if (temp==true){
                        document.frmTask.txtFileSize.disabled = true;
                        document.frmTask.chkLocalTime.disabled = true;}


                    var len = document.frmTask.optLogPeriod.length;
                    var j = 0;
                    for(i=0;i<len;i++)
                    {
                        var temp = document.frmTask.optLogPeriod[i].checked;
                        if(temp===false)
                            j= j+1;
                    }

                    if(j==len)
                        document.frmTask.optLogPeriod[2].checked = true;


                    return true;
                }
                else if(myValue == "<%=Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT)%>")
                {
                        DisableFileTextBox();
                        var len = document.frmTask.optLogPeriod.length;
                        for(i=0;i<len;i++)
                        {
                            document.frmTask.optLogPeriod[i].disabled=true;
                            document.frmTask.optLogPeriod[i].checked=false;
                        }
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.chkLocalTime.checked = false;
                        document.frmTask.txtLogFileDir.disabled = true;
                        document.frmTask.txtFileSize.value = "";
                        return true;
                }
                else
                {
                    var len = document.frmTask.optLogPeriod.length;
                    var temp = document.frmTask.optLogPeriod[5].checked;
                    document.frmTask.chkLocalTime.disabled = true;
                    if (myValue == "<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT)%>")
                    {
                        document.frmTask.chkLocalTime.checked = false;
                    }
                    document.frmTask.txtLogFileDir.disabled = false;
                    if (temp==true)
                    {
                        enableFileTextBox();
                        document.frmTask.chkLocalTime.disabled = true;
                    }
                    for(i=0;i<len;i++)
                        document.frmTask.optLogPeriod[i].disabled=false;


                    var len = document.frmTask.optLogPeriod.length;
                    var j = 0;
                    for(i=0;i<len;i++)
                    {
                        var temp = document.frmTask.optLogPeriod[i].checked;
                        if(temp===false)
                            j= j+1;
                    }

                    if(j==len)
                        document.frmTask.optLogPeriod[2].checked = true;

                    return true;
                }
            }


            function enableAll()
            {
                ClearErr();
                var myValue;
                myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;

                if(document.frmTask.chkEnableLogging.checked == false)
                {

                    document.frmTask.selectActiveFormat.disabled = true;


                    var len = document.frmTask.optLogPeriod.length;
                    for(i=0;i<len;i++)
                    {
                        document.frmTask.optLogPeriod[i].disabled=true;
                    }
                    document.frmTask.txtLogFileDir.disabled = true;
                    document.frmTask.chkLocalTime.disabled = true;
                    document.frmTask.chkLocalTime.checked = false
                    document.frmTask.txtFileSize.disabled = true;
                    document.frmTask.txtFileSize.value = "";
                    return true;
                }

                if( myValue == "<%=Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT) %>" )
                {

                    document.frmTask.selectActiveFormat.disabled = false;

                    var len = document.frmTask.optLogPeriod.length;
                    for(i=0;i<len;i++)
                    {
                        document.frmTask.optLogPeriod[i].disabled=true;
                    }
                    document.frmTask.txtLogFileDir.disabled = true;
                    document.frmTask.chkLocalTime.disabled = true;
                    document.frmTask.chkLocalTime.checked = false;
                    document.frmTask.txtFileSize.value = "";
                    document.frmTask.txtFileSize.disabled = true;
                    return true;
                }
                else if( myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>" )
                {
                    var tempVal1 = document.frmTask.optLogPeriod[3].checked;
                    var tempVal2 = document.frmTask.optLogPeriod[5].checked;
                    if(tempVal1 == true)
                    {
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = true;
                    }
                    else if(tempVal2 == true)
                    {
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = false;
                    }
                    else
                    {
                        document.frmTask.chkLocalTime.disabled = false;
                    }
                }
                else
                {
                    document.frmTask.chkLocalTime.disabled = true;
                }
                document.frmTask.selectActiveFormat.disabled = false;
                var len = document.frmTask.optLogPeriod.length;
                for(i=0;i<len;i++)
                {
                    document.frmTask.optLogPeriod[i].disabled=false;
                }
                document.frmTask.txtLogFileDir.disabled = false;

                var temp = document.frmTask.optLogPeriod[5].checked;
                if (temp==true)
                {
                    document.frmTask.txtFileSize.disabled = false;
                    document.frmTask.chkLocalTime.disabled = true;
                }

            }


            function SetData()
            {
                UpdateHiddenVariables();
            }

            function UpdateHiddenVariables()
            {
                var FTPinst = "<%=FTPInstalled%>";
                if (FTPinst == "True")
                {
                    document.frmTask.hdnEnableLog.value = document.frmTask.chkEnableLogging.checked;
                    if (document.frmTask.chkLocalTime.disabled == false)
                        document.frmTask.fileRollOver.value = document.frmTask.chkLocalTime.checked;
                    else
                        document.frmTask.fileRollOver.value = false;
                }
            }

            function checkforEmptyfield()
            {
                var strFileSize = document.frmTask.txtFileSize.value;
                if (strFileSize == "")
                    document.frmTask.txtFileSize.value = 1;
                else if (strFileSize == 0)
                    document.frmTask.txtFileSize.value = 1;
            }

        </script>

<%    End Function

    '-------------------------------------------------------------------------
    'Function:                ServePage()
    'Description:            For displaying outputs HTML to the user
    'Input Variables:        None
    'Output Variables:        None
    'Returns:                None
    'Global Variables:        L_DELETE_CONFIRM_TEXT
    '-------------------------------------------------------------------------
    Function ServePage
%>
        <table border=0 CELLSPACING=0 CELLPADDING=0 align=left class="TasksBody">
            <TR>
                <td>
                    <% if F_chkEnableLogging = "true" then %>
                    <input type=checkbox name=chkEnableLogging checked tabIndex=1 onclick="enableAll()" value="ON">
                    <%else%>
                    <input type=checkbox name=chkEnableLogging tabIndex=1 onclick="enableAll()" value="ON">
                    <%end if%>
                </td>
                <td nowrap class="TasksBody">
                    <%= L_ENABLELOGGING %>
                </td>
            </TR>
            <TR>
                <td></td>
                <TD nowrap class="TasksBody">
                    <%= L_ACTIVELOGFORMAT %>
                </td>
                <td colspan=4>
                    <SELECT name=selectActiveFormat class="formField" size=1 tabIndex=2 onChange="EnableLogFile()" value="<%=Server.HTMLEncode(F_selectActiveFormat)%>">
                        <OPTION  VALUE="<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT) %>"><%=L_IISLOGFORMAT %></OPTION>
                        <OPTION selected value="<%=Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT) %>" ><%= L_ODBCLOG %></OPTION>
                        <OPTION value="<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT) %>" ><%= L_EXTENDEDLOGFILE %></OPTION>
                    </SELECT>
                </TD>
            </TR>
            <TR>
                <td></td>
                <TD nowrap class="TasksBody">
                    <%= L_NEWLOGTIME %>
                </td>
                <td>
                    <%if F_optLogPeriod = L_HOURLY then%>
                        <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_HOURLY) %>" tabIndex=3 onclick="DisableFileTextBox();" checked>
                    <%elseif F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
                        <input type=radio name=optLogPeriod  value="<%=Server.HTMLEncode(L_HOURLY) %>" tabIndex=3 disabled onclick="DisableFileTextBox();">
                    <%else%>
                        <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_HOURLY) %>" tabIndex=3 onclick="DisableFileTextBox();">
                    <%end if %>
                </TD>
                <td nowrap class="TasksBody">
                    <%= L_HOURLY %>
                </td>
                <td>
                    <%if F_optLogPeriod = L_MONTHLY and F_selectActiveFormat <> CONST_ODBCLOGFILE_FORMAT then%>
                        <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_MONTHLY) %>"  onclick="DisableFileTextBox();" tabIndex=4 checked>
                    <%elseif F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
                        <input type=radio name=optLogPeriod disabled value="<%=Server.HTMLEncode(L_MONTHLY) %>" tabIndex=4 onclick="DisableFileTextBox();">
                    <%else%>
                        <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_MONTHLY) %>" tabIndex=4 onclick="DisableFileTextBox();" >
                    <%end if %>
                </td>
                <td nowrap class="TasksBody">
                    <%= L_MONTHLY %>
                </td>
            </TR>
            <TR>
                <td colspan=2 >
                </td>
                <TD>
                    <%if F_optLogPeriod = L_DAILY then%>
                        <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_DAILY) %>" tabIndex=5 onclick="DisableFileTextBox();" checked>
                    <%elseif F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
                        <input type=radio value="<%=Server.HTMLEncode(L_DAILY) %>" name=optLogPeriod disabled tabIndex=5 onclick="DisableFileTextBox();">
                    <% else %>
                        <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_DAILY) %>" tabIndex=5 onclick="DisableFileTextBox();" >
                    <%end if%>
                </TD>
                <td width=50% nowrap class="TasksBody">
                    <%= L_DAILY %>
                </td>
                <TD>
                    <%if F_optLogPeriod = L_UNLIMITEDFILESIZE and F_selectActiveFormat <> CONST_ODBCLOGFILE_FORMAT then%>
                        <input type=radio name=optLogPeriod checked value ="<%=Server.HTMLEncode(L_UNLIMITEDFILESIZE) %>" tabIndex=6 onclick="DisableFileTextBox();" >
                    <%elseif F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
                        <input type=radio value ="<%=Server.HTMLEncode(L_UNLIMITEDFILESIZE) %>"  name=optLogPeriod disabled tabIndex=6 onclick="DisableFileTextBox();">
                    <%else%>
                        <input type=radio name=optLogPeriod value ="<%=Server.HTMLEncode(L_UNLIMITEDFILESIZE) %>" tabIndex=6 onclick="DisableFileTextBox();" >
                    <%end if %>
                </TD>
                <td width=50% nowrap class="TasksBody">
                    <%= L_UNLIMITEDFILESIZE %>
                </td>
            </TR>
            <TR>
                <td colspan=2 >
                </td>
                <td>
                    <%if F_optLogPeriod = L_WEEKLY then%>
                        <input type=radio name=optLogPeriod onclick="DisableFileTextBox();" value="<%=Server.HTMLEncode(L_WEEKLY) %>" tabIndex=7 checked>
                    <%elseif F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
                        <input type=radio value="<%=Server.HTMLEncode(L_WEEKLY) %>" name=optLogPeriod disabled tabIndex=7 onclick="DisableFileTextBox();">
                    <%else%>
                        <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_WEEKLY) %>" tabIndex=7 onclick="DisableFileTextBox();" >
                    <%end if%>
                </td>
                <td colspan=3 nowrap class="TasksBody">
                    <%= L_WEEKLY %>
                </td>
            </TR>
            <TR>
                <td colspan=2 >
                </td>
                <TD >
                    <%if F_optLogPeriod = L_FILE then%>
                        <input type=radio name=optLogPeriod value ="<%=Server.HTMLEncode(L_FILE) %>" checked tabIndex=8 onclick="javascript:enableFileTextBox();">
                        </td><td colspan=3 nowrap class="TasksBody"><%=L_WHENFILESIZE %>
                        <input type=text name=txtFileSize class="formField" value="<%=Server.HTMLEncode(F_FileSize)%>" OnKeyUP="javaScript:checkUserLimit(this,'filesize');" OnKeypress="javaScript:checkKeyforNumbers(this);" onblur = "checkforEmptyfield();" size="20">
                    <%elseif F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
                        <input type=radio name=optLogPeriod disabled tabIndex=8 value ="<%=Server.HTMLEncode(L_FILE) %>" onclick="javascript:enableFileTextBox();" >
                        </td><td colspan=3 nowrap class="TasksBody"><%=L_WHENFILESIZE %>
                        <input type=text name=txtFileSize class="formField" disabled value="<%=Server.HTMLEncode(F_FileSize)%>" OnKeyUP="javaScript:checkUserLimit(this,'filesize');" OnKeypress="javaScript:checkKeyforNumbers(this);" onblur = "checkforEmptyfield();" size="20">
                    <%else%>
                        <input type=radio name=optLogPeriod value ="<%=Server.HTMLEncode(L_FILE) %>" tabIndex=8 onclick="javascript:enableFileTextBox();">
                        </td><td colspan=3 nowrap class="TasksBody"><%=L_WHENFILESIZE %>
                        <input type=text name=txtFileSize class="formField"  disabled value="<%=Server.HTMLEncode(F_FileSize)%>" OnKeyUP="javaScript:checkUserLimit(this,'filesize');" OnKeypress="javaScript:checkKeyforNumbers(this);" onblur = "checkforEmptyfield();" size="20">
                    <%end if %>
                </TD>
            </TR>
            <tr>
                <td>

                </td>
            </tr>
            <tr>
                <td></td>
                <td colspan=5 class="TasksBody">
                        <%if F_optLogPeriod = L_FILE or F_optLogPeriod = L_UNLIMITEDFILESIZE then%>
                            <input type=checkbox name=chkLocalTime tabIndex=9 disabled value="ON">
                        <%else%>
                            <%if F_selectActiveFormat = CONST_W3CEXLOGFILE_FORMAT and F_LocalTime=true then %>
                                <input type=checkbox name=chkLocalTime tabIndex=9 checked value="ON">
                            <%elseif F_selectActiveFormat = CONST_W3CEXLOGFILE_FORMAT and F_LocalTime=false then %>
                                <input type=checkbox tabIndex=9 name=chkLocalTime value="ON">
                            <%else%>
                                <input type=checkbox name=chkLocalTime tabIndex=9 disabled value="ON">
                            <%end if%>
                        <%end if%>
                          <%=    L_LOCALTIME %>
                </td>
            </tr>
            <tr>
                <td>
                </td>
                <td colspan=5 class="TasksBody">
                    <%= L_LOGFILEDIR %>

                    <%if F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
                        <input type=text disabled name=txtLogFileDir class="formField" tabIndex=11 onKeyPress= "ClearErr();" size=40  value="<%=F_LogFileDir%>">
                    <%else%>
                        <input type=text name=txtLogFileDir class="formField"  size=40 tabIndex=11 onKeyPress= "ClearErr();"value="<%=F_LogFileDir%>">
                    <%end if%>
                </td>
            </tr>
        </table>
        <input type=hidden name=fileRollOver>
        <input type=hidden name=hdnEnableLog>
<%
    End Function

    '-------------------------------------------------------------------------
    'Function name:            ServeVariablesFromForm()
    'Description:            Serves in getting the data from Client
    'Input Variables:        None
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Function ServeVariablesFromForm

        'setting the form variables
        F_chkEnableLogging = Request.Form("hdnEnableLog")
        F_selectActiveFormat = Request.Form("selectActiveFormat")
        F_optLogPeriod = Request.Form("optLogPeriod")

        F_FileSize = Request.Form("txtFileSize")
        F_LocalTime = Request.Form("fileRollOver")
        F_LogFileDir = Request.Form("txtLogFileDir")
        F_IISSites = Request.Form("selectSites")

        'F_SiteCriteria = Request.Form("optAllSites")

        'set the master settings
        If SetLogSettings()then
           ServeVariablesFromForm = true
        else
            ServeVariablesFromForm = false
        end if

    End Function

    '-------------------------------------------------------------------------
    'Function name:            SetVariablesFromSystem
    'Description:            Serves in Getting the data from Client
    'Input Variables:        None
    'Output Variables:        None
    'Returns:                None
    'Global Variables:        G_objService
    '                        G_objSites
    '-------------------------------------------------------------------------

    Function SetVariablesFromSystem()

        Dim inst
        Dim strQuery
        Dim objLogFormat
        Dim instLog

        for each inst in G_objSites
            select case inst.Logtype
                case 1
                    F_chkEnableLogging = "true"
                case else
                    F_chkEnableLogging = "false"
            end select

            if F_chkEnableLogging = "true" then
                F_selectActiveFormat = IISLogFileGUIDToENName(inst.LogPluginClsId)
            end if
            select case inst.LogFilePeriod
                case 1
                    F_optLogPeriod = L_DAILY
                case 2
                    F_optLogPeriod = L_WEEKLY
                case 3
                    F_optLogPeriod = L_MONTHLY
                case 4
                    F_optLogPeriod = L_HOURLY
                case 0
                    if inst.LogFileTruncateSize <>-1 then
                        F_optLogPeriod = L_FILE
                    else
                        F_optLogPeriod =L_UNLIMITEDFILESIZE
                    end if
            end select
            if     F_optLogPeriod = L_FILE  then
                F_FileSize = inst.LogFileTruncateSize / (1024*1024)
            else
                F_FileSize = ""
            end if

            F_LocalTime = inst.LogFileLocaltimeRollover


            if inst.LogFileDirectory = "" then
                Dim objSysDrive,strSysDrive
                Set objSysDrive = server.CreateObject("Scripting.FileSystemObject")
                strSysDrive = objSysDrive.GetSpecialFolder(1).Drive ' 1 for systemfolder,0 for windows folder
                F_LogFileDir = strSysDrive & "\" & CONST_DEF_WEBROOT
            else
                F_LogFileDir = inst.LogFileDirectory
            end if
            exit for
        next

        'Getting values from system
    End Function

    '-------------------------------------------------------------------------
    'Function name:            InitObjects
    'Description:            Initialization of global variables is done
    'Input Variables:        None
    'Returns:                true/false
    'Global Variables:        G_objService
    '                        G_objSites
    '--------------------------------------------------------------------------

    Function InitObjects()
        Err.Clear
        on error resume next

        ' Get instances of IIS_FTPServiceSetting that are visible throughout
        Set G_objService = getWMIConnection(CONST_WMI_IIS_NAMESPACE)
        set G_objSites = G_objService.InstancesOf(GetIISWMIProviderClassName("IIS_FTPServiceSetting"))

        if Err.number <> 0 or G_objSites.count = 0 then
            FTPInstalled = false
            Err.Clear
        else
            FTPInstalled = true
        end if

    end function


    '----------------------------------------------------------------------
    'Function name:            SetLogSettings
    'Description:            Serves in setting the logs to the FTP server
    'Input Variables:        None
    'Output Variables:        boolean
    'Returns:                None
    'Global Variables:        G_objService
    '----------------------------------------------------------------------

    Function SetLogSettings()

        on error resume next

        Dim strObjPath

        InitObjects()

        if FTPInstalled = true then
            SetLogSettings = false

            if F_chkEnableLogging = "true" then
                if ValidateInputs = True then

                    'select case F_SiteCriteria

                        'apply to all sites
                            if NOT SetLogsForAllSites(G_objService) then
                                ServeFailurePage L_FAIL_TO_SET_LOGS, sReturnURL
                            end if

                    SetLogSettings = true
                    exit function

                end if
            else

                Dim inst
                Dim objSite
                Dim arrProp(4)

                arrProp(0) = "LogType"
                arrProp(1) = "LogPluginClsId"
                arrProp(2) = "LogFilePeriod"
                arrProp(3) = "LogFileTruncateSize"
                arrProp(4) = "LogFileLocaltimeRollover"


                        strObjPath = GetIISWMIProviderClassName("IIs_FtpServiceSetting") & ".Name='MSFTPSVC'"
                        set objSite = G_objService.Get(strObjPath)

                        if Err.number <> 0 then
                            SetErrMsg L_INFORMATION_ERRORMESSAGE
                            exit function
                        end if


                        objSite.Logtype = 0

                        objSite.put_(WBEMFLAG)

                        if Err.number <> 0 then
                            SA_TraceOut "Ftp_LogSettings",  L_FAIL_TO_SET_LOGS
                            SetLogSettings = false
                            exit function
                        end if


                        Err.Clear
                        Set objSite = GetNonInheritedFTPSites(G_objService, "IIS_FTPServerSetting","IIS_FTPServiceSetting", arrProp)
                        If ( Err.Number <> 0 ) Then
                            Call SA_TraceOut(SA_GetScriptFileName(), "GetNonInheritedFTPSites failed, error: " & Hex(Err.Number) & " " & Err.Description)
                            SetLogSettings  = true
                            exit function
                        End If

                        if (IsNull(objSite) OR objSite.count = 0) then

                            SetLogSettings  = true
                            exit function
                        end if

                        for each inst in objSite

                            inst.Logtype = 0

                            inst.put_(WBEMFLAG)

                            if Err.number <> 0 then
                                SA_TraceOut "Ftp_LogSettings",  L_FAIL_TO_SET_LOGS
                                SetLogSettings = false
                                exit function
                            end if

                        next

                SetLogSettings = true
        end if
    end if

    'release the object
    set G_objService = nothing
    set G_objSites = nothing
    set objSite = nothing

    end function


    '-----------------------------------------------------------------------------------------------------------
    'Function name:            SetLogsForAllSites
    'Description:            Serves in setting the logs to the new FTP sites
    'Input Variables:        G_objService
    'Output Variables:        boolean
    'Returns:                None
    'Global variables:        G_objService
    'Other functions called:GetNonInheritedFTPSites
    '-----------------------------------------------------------------------------------------------------------

    Function SetLogsForAllSites(G_objService)
        Err.Clear
        On error resume next

        Dim objSite
        Dim inst
        Dim arrProp(4)

        'Set Master settings
        SetLogsForNewSites G_objService

        SetLogsForAllSites  = false

        arrProp(0) = "LogType"
        arrProp(1) = "LogPluginClsId"
        arrProp(2) = "LogFilePeriod"
        arrProp(3) = "LogFileTruncateSize"
        arrProp(4) = "LogFileLocaltimeRollover"

        Set objSite = GetNonInheritedFTPSites(G_objService, GetIISWMIProviderClassName("IIS_FTPServerSetting"),GetIISWMIProviderClassName("IIS_FTPServiceSetting"), arrProp)
        if (Err.number <> 0) then
            SetLogsForAllSites = false
            exit function
        end if
        if objSite.count = 0 then
            SetLogsForAllSites  = true
            exit function
        end if

        for each inst in objSite

            if not SetLogs(inst) then

                SA_TraceOut "Web_LogSettings",  L_FAIL_TO_SET_LOGS
                SetLogsForAllSites  = false
                exit function

            end if

        next

        'release the object
        set objSite = nothing

        SetLogsForAllSites  = true

    End Function


    '-----------------------------------------------------------------------------------------------------------
    'Function name:            SetLogsForNewSites
    'Description:            Serves in setting the logs to the new FTP sites
    'Input Variables:        G_objService
    'Output Variables:        boolean
    'Returns:                None
    'Global Variables:        G_objService
    '-----------------------------------------------------------------------------------------------------------

    Function SetLogsForNewSites(G_objService)
        Err.Clear
        On error resume next

        Dim objSite
        Dim strObjPath

        SetLogsForNewSites = false

        strObjPath = GetIISWMIProviderClassName("IIs_FtpServiceSetting") & ".Name='MSFTPSVC'"

        set objSite = G_objService.Get(strObjPath)
        if Err.number <> 0 then
            SetErrMsg L_INFORMATION_ERRORMESSAGE
            exit function
        end if


        if not SetLogs(objSite) then

            SA_TraceOut "FTP_LogSettings",  L_FAIL_TO_SET_LOGS

        end if

        SetLogsForNewSites = true

        'release the object
        set objSite = nothing

        SetLogsForNewSites = true

    End Function

    '----------------------------------------------------------------------------------------------------
    'Function name:            ValidateInputs
    'Description:            Check whether directory exists
    '                        If directory does not exist, create the web site if the drive letter is valid
    '                        else give error message
    'Input Variables:        None
    'Returns:                true/false
    'Global Variables:        None
    '-----------------------------------------------------------------------------------------------------

    Function ValidateInputs
        Dim strIndx
        Dim objFso
        Dim nRetVal
        Dim strDir

        ValidateInputs = false

        if F_selectActiveFormat <> CONST_ODBCLOGFILE_FORMAT then

            Set objFso = server.CreateObject("Scripting.FileSystemObject")
            if Err.number <> 0 then
                SetErrMsg L_FILEINFORMATION_ERRORMESSAGE
                exit function
            end if

            if mid(ucase(F_LogFileDir),1,8) = ucase("%WinDir%") then
                strDir = objFso.GetSpecialFolder(0) & mid(F_LogFileDir,9)

            elseif mid(ucase(F_LogFileDir),1,13) = ucase("%SystemDrive%") then

                strDir = objFso.GetSpecialFolder(0).Drive & mid(F_LogFileDir,14)
            else
                strDir = F_LogFileDir
            end if

            nRetVal = CreateSitePath( objFso, strDir )

            if nRetVal <> CONST_SUCCESS then

                if nRetVal = CONST_INVALID_DRIVE then

                    SetErrMsg L_INVALID_DRIVE_ERRORMESSAGE

                elseif nRetVal = CONST_NOTNTFS_DRIVE then

                    SetErrMsg L_NOT_NTFS_DRIVE_ERRORMESSAGE
                else

                    SetErrMsg L_FAILED_CREATE_DIR_ERRORMESSAGE

                end if

                exit Function

            end if

            Dim strDriveName,objDriveType, intDriveSize

            strDriveName = left(strDir,2)
            if objFso.DriveExists(ucase(strDriveName)) then
                set objDriveType =  objFso.GetDrive(strDriveName)
                intDriveSize = clng(objDriveType.TotalSize / (1024*1024))
            end if

            'Release the object
            set objDriveType = nothing

            if clng(F_FileSize) > intDriveSize then
                   L_DIRQUOTAERRORMESSAGE = GetLocString("GeneralSettings.dll", "C0420057", Array(CStr(intDriveSize)))
                SetErrMsg(L_DIRQUOTAERRORMESSAGE)
                exit Function
            end if

        end if

        ValidateInputs = true

        'Release the object
        set objFso = nothing

    End Function


    '------------------------------------------------------------------
    'Function name:            SetLogs
    'Description:            Serves in setting the logs
    'Input Variables:        inst
    'Returns:                boolean 'true if no error occurs else false
    'Global Variables:        G_objService
    '------------------------------------------------------------------

    Function SetLogs(inst)
        On Error Resume Next
        Err.Clear

        Dim strQuery
        Dim objLogFormat
        Dim instLog

        SetLogs = false

        inst.LogType = 1 'to enable logging
        inst.LogPluginClsId = IISLogFileENNameToGUID(F_selectActiveFormat)

        if F_selectActiveFormat <> CONST_ODBCLOGFILE_FORMAT then

            select case F_optLogPeriod
                case L_DAILY
                    inst.LogFilePeriod = 1
                    inst.LogFileTruncateSize = 512 * 1024 * 1024
                case L_WEEKLY
                    inst.LogFilePeriod = 2
                    inst.LogFileTruncateSize = 512 * 1024 * 1024
                case L_MONTHLY
                    inst.LogFilePeriod = 3
                    inst.LogFileTruncateSize = 512 * 1024 * 1024
                case L_HOURLY
                    inst.LogFilePeriod = 4
                    inst.LogFileTruncateSize = 512 * 1024 * 1024
                case L_FILE
                    inst.LogFilePeriod = 0
                    if trim(F_FileSize) <> "" then
                        inst.LogFileTruncateSize = clng(F_FileSize) * 1024 * 1024
                    else
                        inst.LogFileTruncateSize = 1024 * 1024
                    end if
                case L_UNLIMITEDFILESIZE
                    inst.LogFilePeriod = 0
                    inst.LogFileTruncateSize = -1
            end select

            inst.LogFileLocaltimeRollover = cbool(F_LocalTime)

            inst.LogFileDirectory = trim(F_LogFileDir)

        end if

        inst.put_(WBEMFLAG)

        if Err.number <> 0 then
            SA_TraceOut "Ftp_LogSettings",  L_FAIL_TO_SET_LOGS
            SetLogs = false
            exit function
        end if

        'release the object
        set objLogFormat = nothing

        SetLogs = true

    End function
%>